home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 6 / AACD06.ISO / AACD / System / IOBlixUpd / Install Parallel ZIP < prev    next >
Text File  |  2000-01-03  |  9KB  |  277 lines
  1. ;
  2. ; $VER: IOBlix parallel port zip installation 1.6 (4.1.00)
  3. ;
  4. ; Copyright (c) 1998 Thore Böckelmann and RBM Computertechnik
  5. ;
  6.  
  7. ;****************************************************************************
  8. ;
  9. ; English texts
  10. ;
  11. (if (not (= @language "deutsch"))
  12.     (
  13.         (set #bad-kick      "You must have AmigaOS 2.0 (V37) or newer to be able to use the IOBlix I/O board.")
  14.         (set #bad-cpu       "You must have at least an MC68020 to use the IOBlix software.")
  15.         (set #cantremove    (cat "Cannot remove old ioblix.resource! "
  16.                                  "Please quit any software using the IOBlix before installing the new drivers!"))
  17.         (set #cantinit      (cat "Cannot initialize ioblix.resource! "
  18.                                  "Please quit any software using the IOBlix before installing the new drivers!"))
  19.         (set #noioblix      (cat "You have no IOBlix board installed! "
  20.                                  "Please install the board first, before you install the software!"))
  21.         (set #intro         (cat "\n"
  22.                                  "Now you can install the necessary drivers for a ZIP drive connected to IOBlix' parallel port."
  23.                                  "Drivers for FFS- and PC-formatted ZIP disks will be installed."
  24.                                  "\n"
  25.                                  "\n"
  26.                                  "Do you want to install the drivers now?"))
  27.         (set #selectdevs    "\nWhere to install the device drivers?\n")
  28.         (set #copyzipdev    "\nCopying ioblixzip.device...\n")
  29.         (set #copydosdriver "\nCopying DOSDrivers...\n")
  30.         (set #zipquery      (cat "Do want to install drivers for a "
  31.                                  "parallel port ZIP drive?"))
  32.         (set #zipdevask     (cat "You have an IOBlixZ2- and an IOBlix1200P board installed. "
  33.                                  "To which board do you want to connect the ZIP drive?"))
  34.         (set #zipunitask    (cat "To which port do you want to connect the ZIP drive?\n"
  35.                                  "Please make sure you select a port which really exists!"))
  36.         (set #zipstart      "Do you want the ZIP driver to be started on bootup?")
  37.         (set #zipinfo       (cat "The driver PZIP0: is meant for FFS formatted ZIP disks with 512 bytes blocksize,\n"
  38.                                  "and the driver PZIPC: is meant for PC formatted ZIP disks. This requires CrossDOS to be installed."))
  39.     )
  40. )
  41.  
  42. ;****************************************************************************
  43. ;
  44. ; Deutsche Texte
  45. ;
  46. (if (= @language "deutsch")
  47.     (
  48.         (set #bad-kick      "Sie müssen AmigaOS 2.0 (V37) oder höher installieren, um die IOBlix-Karte zu benutzen.")
  49.         (set #bad-cpu       "Sie brauchen mindestens einen MC68020, um die IOBlix-Software zu benutzen.")
  50.         (set #cantremove    (cat "Kann alte ioblix.resource nicht aus dem System entfernen!\n"
  51.                                  "Bitte beenden Sie alle Programme, die den IOBlix benutzen, bevor Sie die neue Software installieren!"))
  52.         (set #cantinit      (cat "Kann ioblix.resource nicht initialisieren!\n"
  53.                                  "Bitte beenden Sie alle Programme, die den IOBlix benutzen, bevor Sie die neue Software installieren!"))
  54.         (set #noioblix      (cat "Sie haben keine IOBlix-Karte in Ihrem Rechner installiert! "
  55.                                  "Bitte bauen Sie erst die Karte ein, bevor Sie die Software installieren!"))
  56.         (set #intro         (cat "\n"
  57.                                  "Sie können jetzt die nötigen Treiber für ein ZIP Laufwerk am Parallelport der IOBlix-Karte "
  58.                                  "installieren. Es werden Treiber für FFS- und PC-formatierte Medien installiert."
  59.                                  "\n"
  60.                                  "\n"
  61.                                  "Wollen Sie die Treiber jetzt installieren?"))
  62.         (set #selectdevs    "\nWohin sollen die Gerätetreiber kopiert werden?\n")
  63.         (set #copyzipdev    "\nKopiere ioblixzip.device...\n")
  64.         (set #copydosdriver "\nKopiere DOSDrivers...\n")
  65.         (set #zipquery      (cat "\n"
  66.                                  "Wollen Sie Treiber für ein Parallel-Port ZIP Laufwerk installieren?"))
  67.         (set #zipdevask     (cat "Sie haben eine IOBlixZ2- und eine IOBlix1200P-Karte installiert. "
  68.                                  "An welcher Karte soll das ZIP Laufwerk betrieben werden?"))
  69.         (set #zipunitask    (cat "An welchem Port soll das ZIP Laufwerk betrieben werden?\n"
  70.                                  "Bitte stellen Sie sicher, daß sie einen existierenden Port auswählen!"))
  71.         (set #zipstart      "Soll der ZIP Treiber gleich beim Booten gestartet werden?")
  72.         (set #zipinfo       (cat "Der Treiber PZIP0: ist für FFS-formatierte ZIP-Medien mit einer Blockgröße von 512 Bytes gedacht,\n"
  73.                                  "und der Treiber PZIPC: for PC-formatierte ZIP-Medien. Dafür muß CrossDOS installiert sein."))
  74.     )
  75. )
  76.  
  77. ;****************************************************************************
  78. ;
  79. ; Setup
  80. ;
  81.  
  82. (complete 0)
  83.  
  84. (if (< (/ (getversion) 65536) 37)
  85.     (abort #bad-kick)
  86. )
  87.  
  88. (if (patmatch "68000|68010" (database "cpu"))
  89.     (abort #bad-cpu)
  90. )
  91.  
  92. ;****************************************************************************
  93. ;
  94. ; Welcome
  95. ;
  96.  
  97. (welcome)
  98.  
  99. (complete 10)
  100.  
  101. ;****************************************************************************
  102. ;
  103. ; Check for IOBlix board
  104. ;
  105.  
  106. (set #setupcheck (run "C/english/SetupIOBlix remove" (safe)))
  107. (if (< 0 #setupcheck)
  108.     (abort #cantremove)
  109. )
  110.  
  111. (set #setupcheck (run "C/english/SetupIOBlix reinit" (safe)))
  112. (if (< 0 #setupcheck)
  113.     (abort #cantinit)
  114. )
  115.  
  116. (set #ioblixz2 (run "C/Look4IOBlix hw=par" (safe)))
  117. (set #ioblix1200 (run "C/Look4IOBlix a1200 hw=par" (safe)))
  118. (if (and (= 0 #ioblixz2) (= 0 #ioblix1200))
  119.     (abort #noioblix)
  120. )
  121.  
  122. (complete 20)
  123.  
  124. ;****************************************************************************
  125. ;
  126. ;
  127. ;
  128.  
  129. (set #doit
  130.     (askbool
  131.         (prompt #intro)
  132.         (help @askbool-help)
  133.         (default 1)
  134.     )
  135. )
  136.  
  137. (if (= 0 #doit)
  138.     (exit (quiet))
  139. )
  140.  
  141. (if (and (< 0 #ioblixz2) (< 0 #ioblix1200))
  142.     (
  143.         (set #ioblixboard
  144.             (askchoice
  145.                 (prompt #zipdevask)
  146.                 (help @askchoice-help)
  147.                 (choices "IOBlixZ2" "IOBlix1200P")
  148.                 (default 0)
  149.             )
  150.         )
  151.     )
  152.     (
  153.         (if (< 0 #ioblixz2)
  154.             (
  155.                 (set #ioblixboard 0)
  156.             )
  157.             (
  158.                 (set #ioblixboard 1)
  159.             )
  160.         )
  161.     )
  162. )
  163.  
  164. (if (= 0 #ioblixboard)
  165.     (
  166.         (set #zipdevice "ioblixzip.device")
  167.         (set #zipunit
  168.             (askchoice
  169.                 (prompt #zipunitask)
  170.                 (help @askchoice-help)
  171.                 (choices "Port 0" "Port 1")
  172.                 (default 0)
  173.             )
  174.         )
  175.     )
  176.     (
  177.         (set #zipdevice "ioblix12zip.device")
  178.         (set #zipunit
  179.             (askchoice
  180.                 (prompt #zipunitask)
  181.                 (help @askchoice-help)
  182.                 (choices "Port 0" "Port 1" "Port 2" "Port 3")
  183.                 (default 0)
  184.             )
  185.         )
  186.     )
  187. )
  188. (set #zipunit (cat "" #zipunit))
  189.  
  190. ;****************************************************************************
  191. ;
  192. ; Setup directory
  193. ;
  194.  
  195. (complete 30)
  196.  
  197. (set #destdevs
  198.     (askdir
  199.         (prompt #selectdevs)
  200.         (help @askdir-help)
  201.         (default "DEVS:")
  202.     )
  203. )
  204.  
  205. ;****************************************************************************
  206. ;
  207. ; Install devices
  208. ;
  209.  
  210. (if (= 0 #ioblixboard)
  211.     (
  212.         (set #file (tackon "Devs/IOBlixZ2" #zipdevice))
  213.     )
  214.     (
  215.         (set #file (tackon "Devs/IOBlix1200" #zipdevice))
  216.     )
  217. )
  218. (copylib
  219.     (help @copylib-help)
  220.     (prompt #copyzipdev)
  221.     (source #file)
  222.     (dest #destdevs)
  223.     (confirm)
  224. )
  225.  
  226. (complete 60)
  227.  
  228. (copyfiles
  229.     (help @copyfiles-help)
  230.     (prompt #copydosdriver)
  231.     (source "Devs/DOSDrivers")
  232.     (choices "PZIP0" "PZIPC")
  233.     (dest "SYS:Storage/DOSDrivers")
  234.     (infos)
  235.     (confirm)
  236. )
  237.  
  238. (if (= 1 (exists "SYS:Storage/DOSDrivers/PZIP0"))
  239.     (tooltype
  240.         (dest "SYS:Storage/DOSDrivers/PZIP0")
  241.         (settooltype "DEVICE" #zipdevice)
  242.         (settooltype "UNIT" #zipunit)
  243.     )
  244. )
  245. (if (= 1 (exists "SYS:Storage/DOSDrivers/PZIPC"))
  246.     (tooltype
  247.         (dest "SYS:Storage/DOSDrivers/PZIPC")
  248.         (settooltype "DEVICE" #zipdevice)
  249.         (settooltype "UNIT" #zipunit)
  250.     )
  251. )
  252.  
  253. ;****************************************************************************
  254. ;
  255. ;
  256. ;
  257.  
  258. (startup "IOBlix ZIP driver"
  259.     (help @startup-help)
  260.     (prompt #zipstart)
  261.     (command (cat "mount PZIP0: >nil:\n"
  262.                   "mount PZIPC: >nil:"))
  263. )
  264.  
  265. (complete 90)
  266.  
  267. (message #zipinfo)
  268.  
  269. ;****************************************************************************
  270. ;
  271. ; Exit
  272. ;
  273.  
  274. (complete 100)
  275. (exit)
  276.  
  277.